home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / netmail_13.lha / NetMail / Drivers / uuInOut.encoder < prev    next >
Text File  |  1995-09-30  |  2KB  |  76 lines
  1. /*
  2. ** $VER: uuInOut.encoder 1.3 (30.9.95)
  3. ** Copyright (c) 1995 Riccardo Solmi
  4. **
  5. */
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 21
  9.  
  10. IF UPPER(ARG(1)) = 'INFO' THEN RETURN 'UUencode'
  11.  
  12. cmd1 = 'AmiTCP:bin/uuIn'
  13. IF ~EXISTS(cmd1) THEN DO
  14.    cmd1 = GetVar('NetMail/uuInCmd')
  15.    IF cmd1 = 0 | ~EXISTS(cmd1) THEN DO
  16.       ADDRESS COMMAND 'SetEnv NetMail/uuInCmd `Which "uuIn"`'
  17.       cmd = GetVar('NetMail/uuInCmd')
  18.       IF cmd = 0 THEN DO
  19.          ADDRESS COMMAND 'SetEnv NetMail/uuInCmd `RequestFile Title "Select uuIn command" Noicons`'
  20.          cmd1 = GetVar('NetMail/uuInCmd')
  21.          IF cmd1 = 0 | ~EXISTS(cmd1) THEN DO
  22.             IF UPPER(ARG(1)) = 'ENCODE' THEN RETURN 2
  23.                                         ELSE RETURN ''
  24.          END
  25.          ADDRESS COMMAND 'Copy QUIET ENV:NetMail/uuInCmd ENVARC:NetMail/uuInCmd'
  26.       END
  27.    END
  28. END
  29.  
  30. cmd2 = 'AmiTCP:bin/uuOut'
  31. IF ~EXISTS(cmd2) THEN DO
  32.    cmd2 = GetVar('NetMail/uuOutCmd')
  33.    IF cmd2 = 0 | ~EXISTS(cmd2) THEN DO
  34.       ADDRESS COMMAND 'SetEnv NetMail/uuOutCmd `Which "uuOut"`'
  35.       cmd2 = GetVar('NetMail/uuOutCmd')
  36.       IF cmd2 = 0 THEN DO
  37.          ADDRESS COMMAND 'SetEnv NetMail/uuOutCmd `RequestFile Title "Select uuOut command" Noicons`'
  38.          cmd2 = GetVar('NetMail/uuOutCmd')
  39.          IF cmd2 = 0 | ~EXISTS(cmd2) THEN DO
  40.             IF UPPER(ARG(1)) = 'ENCODE' THEN RETURN 2
  41.                                         ELSE RETURN ''
  42.          END
  43.          ADDRESS COMMAND 'Copy QUIET ENV:NetMail/uuOutCmd ENVARC:NetMail/uuOutCmd'
  44.       END
  45.    END
  46. END
  47.  
  48. SELECT
  49.    WHEN UPPER(ARG(1)) = 'ENCODE' THEN DO
  50.       PARSE ARG , from, dest, format
  51.  
  52.       ADDRESS COMMAND '"'cmd1'" "'from'" "'dest'"'
  53.       RETURN RC
  54.    END
  55.    WHEN UPPER(ARG(1)) = 'DECODE' THEN DO
  56.       PARSE ARG , from, path, format
  57.  
  58.       ADDRESS COMMAND '"'cmd2'" >T:attlist "'from'" "'path'" verbose'
  59.  
  60.       attlist = ''
  61.       IF OPEN(fin, 'T:attlist', 'Read') THEN DO
  62.          DO WHILE EOF(fin) = 0
  63.             line = READLN(fin)
  64.             PARSE VAR line 'decoding "' attfile '"'
  65.             IF attfile ~= '' THEN attlist = attlist'|'FilePart(attfile)
  66.          END
  67.          CLOSE(fin)
  68.          DeleteFile('T:attlist')
  69.          PARSE VAR attlist '|' attlist
  70.       END
  71.       RETURN attlist
  72.    END
  73.    OTHERWISE
  74. END
  75. RETURN ''
  76.